From aa9bfce4a505bfc375da5a05c73b2b82c8fd243f Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Mon, 17 Jun 2013 17:33:52 +0200 Subject: [PATCH] lisp/startup.el: Fix bug#14639. (command-line): Expand package name returned by `package--description-file'. --- lisp/ChangeLog | 5 +++++ lisp/startup.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 632c909067d..4ad81de32d1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-06-17 Juanma Barranquero + + * startup.el (command-line): Expand package name returned by + `package--description-file' (bug#14639). + 2013-06-17 Dmitry Gutov * emacs-lisp/package.el (package-load-descriptor): Do not call diff --git a/lisp/startup.el b/lisp/startup.el index 52dd6b074ba..77b2bcec5b7 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1203,7 +1203,9 @@ the `--debug-init' option to view a complete error backtrace." (when (let ((subdir (expand-file-name subdir dir))) (and (file-directory-p subdir) (file-exists-p - (package--description-file subdir)))) + (expand-file-name + (package--description-file subdir) + subdir)))) (throw 'package-dir-found t))))))) (package-initialize)) -- 2.30.2